home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Superbase 4 ser 12C00584^1.adf / Trading / STKDR.SBP < prev    next >
Text File  |  1991-03-13  |  4KB  |  204 lines
  1. SBP
  2.  ÿ½      STKDR
  3.  ÿ½      Enter Cash Receipts and Payments
  4.  ÿ½      Last updated Jan 03, 90
  5.  
  6.  ÿ³ÿ_ÿwferror
  7.  
  8. stkdr:ÿ½ Set parameters
  9.  f$ÿ"cash":fkey$ÿ"Trans_Key":fmd$ÿ"stkdr":ffld%ÿ7:frow%ÿ10
  10.  ÿ¡mb%ÿ4ÿpbtype$ÿ"r"ÿ^btype$ÿ"p"
  11.  bdate$ÿÿ(ÿQ,"mmm dd,yy"):bdate%ÿÿQ
  12.  
  13.  ÿ™"ctrl"
  14.  bref%ÿbatch.CTRLÿ1
  15.  
  16.  ÿ´ÿ™f$
  17.  
  18.  ÿ£fkey$
  19.  ÿ´ÿœfmd$
  20.  
  21. bwait:ÿ½ Enter batch header or exit
  22.  ÿÏÿß
  23.  ÿwbwait
  24.  
  25. bhead:ÿ½ Batch header
  26.  ÿ™"ctrl"
  27.  batch.CTRLÿbatch.CTRLÿ1
  28.  ÿÌ
  29.  bref%ÿbatch.CTRL
  30.  ÿÊÿËss20$
  31.  
  32. bhead2:ÿ½ Batch total
  33.  ÿ™f$
  34.  ÿ”7
  35.  ÿ¡Zero ÿ    0ÿpÿÂms27$,"",2,a%:ÿwbhead2
  36.  ÿÂms1$,"",130,a%
  37.  ÿ¡a%ÿ0ÿpÿwbhead2
  38.  bttl%ÿZero:Zero ÿ0:ftl%ÿ0:tref%ÿ1
  39.  
  40. fenter:ÿ½ Enter Records from line 1
  41.  ÿÿœ
  42.  ÿœ2
  43.  ÿÊÿËss3$
  44.  mp%ÿ1:ttl%ÿ0
  45.  
  46. fenter2:ÿ½ Enter a record
  47.  ÿ
  48.  Trans_ref.CASHÿtref%
  49.  ÿÍÿœÿ"mp%
  50.  ÿ”Trans_date ÿ"mp%ÿqCash_ref ÿ"mp%
  51.  
  52. fenter3:ÿ½ Enter cash amount
  53.  ÿ”Amount.CASHÿ"mp%
  54.  b%ÿ0
  55.  ÿ¡Amount.CASHÿ0ÿp
  56. ÿÂms1$,"",127,a%
  57. ÿ¡a%ÿp
  58. amt%ÿAmount.CASH:ttl%ÿttl%ÿamt%:ftl%ÿftl%ÿamt%
  59. tref%ÿtref%ÿ1:mp%ÿmp%ÿ1
  60. Batch_ref.CASHÿbref%:Batch_date.CASHÿbdate%
  61. Printed_yn.CASHÿ"n":Trans_Type.CASHÿbtype$
  62. ÿÌ
  63. ÿvsupdate
  64. ÿœ
  65. ÿ’ÿ¡
  66.  ÿ^
  67. ÿÂms27$,"",100,a%:b%ÿ1
  68.  ÿ’ÿ¡
  69.  ÿ¡b%ÿpÿwfenter3
  70.  ÿÂms2$,"",130,b%
  71.  ÿ¡b%ÿ0ÿpÿwfcheck
  72.  ÿ¡mp%ÿfrow%ÿpÿwfenter ÿ^ÿwfenter2
  73.  
  74. fcheck:ÿ½ Check batch total
  75.  ÿ¡ftl%ÿbttl%ÿp
  76. ÿÂms28$,ms29$,130,b%
  77.  ÿ^
  78. ÿÂms26$,ss13$,100,a%:b%ÿ1
  79.  ÿ’ÿ¡
  80.  ÿ¡b%ÿ0ÿwfexit
  81.  
  82. floop:ÿ½ Re-display from first record
  83.  ÿÿœ
  84.  ÿÉÿÐBatch_ref.CASHÿbref%
  85.  ÿvslimits
  86.  ckey%ÿfstk%
  87.  
  88. fform:ÿ½ Display from ckey
  89.  ÿvspage
  90.  ÿœ2
  91.  
  92. fwait:ÿ½ Wait here for a push button
  93.  mp%ÿ0
  94.  ÿÊÿËss13$
  95.  ÿÏÿß
  96.  
  98. ÿ½ Edit line
  99.  ÿ¡(mp%ÿ0ÿmp%ÿlrec%)ÿpÿwfwait
  100.  ÿÊÿËss4$
  101.  ÿÉÿœÿ"mp%
  102.  oamt%ÿAmount.CASH
  103.  
  104. fedit2: 
  105.  ÿ”Cash_ref.CASHÿ"mp%ÿqAmount.CASHÿ"mp%
  106.  b%ÿ0
  107.  ÿ¡Amount.CASHÿ0ÿp
  108. ÿÂms1$,"",127,a%
  109. ÿ¡a%ÿp
  110. amt%ÿAmount.CASHÿoamt%:ttl%ÿttl%ÿamt%:ftl%ÿftl%ÿamt%
  111. ÿÌ:ÿ½ always positive
  112. ÿvsupdate
  113. ÿœ
  114. ÿ’ÿ¡
  115.  ÿ^
  116. ÿÂ"Amount must be positive","",100,a%:b%ÿ1
  117.  ÿ’ÿ¡
  118.  ÿ¡b%ÿpÿwfedit2
  119.  ÿwfwait
  120.  
  121. fdelete:ÿ½ Delete record
  122.  ÿÊÿËss12$
  123.  ÿÏÿß
  124.  ÿÉÿœÿ"mp%
  125.  ÿÂms14$ÿÿ(Trans_Ref.CASH,"0000."),"",119,a%
  126.  ÿ¡a%ÿp
  127. ÿÉÿœÿ"mp%
  128. amt%ÿÿAmount.CASH:ttl%ÿttl%ÿamt%:ftl%ÿftl%ÿamt%
  129. ÿÉÿ¾
  130. ÿvsupdate
  131.  ÿ’ÿ¡
  132.  ÿ¡a%ÿwfloop ÿ^ÿwfwait
  133.  
  134. fnext:ÿ½ Next page
  135.  ÿ¡lstk%ÿpstk%(lrec%)ÿpÿwfwait
  136.  ÿÉÿ¥pstk%(lrec%)
  137.  ÿÉÿ±
  138.  ÿwfcurr
  139.  
  140. fprev:ÿ½ Prev page
  141.  ÿ¡fstk%ÿpstk%(1)ÿpÿwfwait
  142.  ÿÉÿ¥pstk%(1)
  143.  ÿ›i%ÿ1ÿqfrow%
  144. ÿÉÿg
  145.  ÿ±i%
  146.  
  147. fcurr: 
  148.  ÿ–"ckey% = "ÿfkey$
  149.  ÿwfform
  150.  
  151. fexit:ÿ½ Exit
  152.  ÿ¡ftl%ÿbttl%ÿpÿÂms26$,ss13$,100,a%:ÿwfwait
  153.  ÿ™"ctrl"
  154.  ÿ„"menu"
  155.  
  156. slimits: 
  157.  ÿÉÿb
  158.  ÿ–"lstk% = "ÿfkey$
  159.  ÿÉÿ`
  160.  ÿ–"fstk% = "ÿfkey$
  161.  ÿÃ
  162.  
  163. spage:ÿ½ Displays page of records starting with ckey$
  165. ÿ½ Returns key array and number of number of records for page
  166.  ÿÿœ
  167.  ÿÉÿ¥ckey%
  168.  j%ÿ0:ttl%ÿ0
  169.  ÿ›i%ÿ1ÿqfrow%
  170. ÿÍÿœÿ"i%
  171. j%ÿj%ÿ1:ttl%ÿttl%ÿAmount.CASH
  172. ÿ–"pstk%(i%) = "ÿfkey$
  173. ÿ–"IF "ÿfkey$ÿ"= lstk% THEN i% = frow%"
  174. ÿ¡i%ÿ
  175. frow%ÿpÿÉÿ±
  176.  ÿ±i%
  177.  ÿ¡j%ÿfrow%ÿplrec%ÿfrow%ÿ^lrec%ÿj%
  178.  ÿÃ
  179.  
  180. supdate: 
  181.  ÿ¡btype$ÿ"p"ÿpamt%ÿamt%ÿÿ1
  182.  ÿ™"Clients"
  183.  ÿÉÿ¥Client.CASH
  184.  Cash_Receipts.CLIENTSÿCash_Receipts.CLIENTSÿamt%
  185.  ÿÌ
  186.  ÿ™f$
  187.  ÿÃ
  188.  
  189. ferror:ÿ½ Error conditions
  190.  res%ÿ0
  191.  ÿ¡ÿ&ÿ11ÿp
  192. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  193.  ÿ^ÿ¡ÿ&ÿ57ÿp
  194. ÿÂms8$,"",100,a%:res%ÿ2
  195.  ÿ^
  196. ÿÂÿ((ÿ&),ms9$,114,a%:ÿ¡a%ÿ1ÿpres%ÿ3
  197.  ÿ’ÿ¡
  198.  ÿ¡res%ÿ1ÿpÿy
  199.  ÿ¡res%ÿ2ÿpÿyfloop
  200.  ÿ¡res%ÿ3ÿpÿyfwait
  201.  ÿ
  202.  
  203.  
  204.